home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / WXLSLIB.ARJ / PURO.LSP < prev    next >
Lisp/Scheme  |  1992-02-20  |  970b  |  23 lines
  1. (def x1 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1 1.1))
  2.  
  3. (def x2 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1))
  4.  
  5. (def y1 (list 76 47 97 107 123 139 159 152 191 201 207 200))
  6.  
  7. (def y2 (list 67 51 84 86 98 115 131 124 144 158 160))
  8.  
  9. (defun f1 (theta)
  10.   "The Michaelis-Menten function for the velocity of an enzymatic reaction
  11. as a function of the substrate concentration.  THETA is a parameter
  12. vector of length 2 consisting of the asymptotic velocity and the
  13. concentration at which half the asymptotic velocity is attained."
  14.   (/ (* (select theta 0) x1) (+ (select theta 1) x1)))
  15.  
  16. (defun f2 (theta)
  17.   "The Michaelis-Menten function for the velocity of an enzymatic reaction
  18. as a function of the substrate concentration.  THETA is a parameter
  19. vector of length 2 consisting of the asymptotic velocity and the
  20. concentration at which half the asymptotic velocity is attained."
  21.   (/ (* (select theta 0) x2) (+ (select theta 1) x2)))
  22.  
  23.